﻿Imports System
Imports System.Net
Public Class Ingresoip
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ip = TextBox1.Text
        If ValidarIP(ip) Then

            fApuntes.Show()
            Me.Hide()
            Process.Start("C:\Program Files\Google\Chrome\Application\chrome.exe", "http://" & ip & "/BookWeb/Cliente/")
        Else
            MsgBox("IP no valida, Varificar Dirección IP")
        End If
    End Sub
End Class